home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / midi / hip222.lha / HippoPlayer / ARexx / HiP_get.rexx < prev    next >
OS/2 REXX Batch file  |  1995-11-23  |  920b  |  65 lines
  1. /* HippoPlayer - Get some information from HiP */
  2.  
  3. options results
  4.  
  5. address 'HIPPOPLAYER'
  6.  
  7. get play
  8. if result == 1 then do
  9.     say "HiP is playing"
  10. end
  11. else do
  12.     say "HiP is not playing"
  13. end
  14.  
  15. get hids
  16. if result == 1 then do
  17.     say "Window is hidden"
  18. end
  19. else do
  20.     say "Window is not hidden"
  21. end
  22.  
  23. get name
  24. say "Loaded module:" result
  25.  
  26. get dura
  27. say "Duration of loaded module:" result "seconds"
  28.  
  29. get fnam
  30. say "Full name of oaded module:" result
  31.  
  32. get type
  33. say "Type of loaded module:" result
  34.  
  35. get size
  36. say "Size of loaded module:" result
  37.  
  38. get comm
  39. say "File comment of loaded module:" result
  40.  
  41. get curr
  42. say "Number of loaded module:" result
  43.  
  44. get csng
  45. say "Current song:" result
  46.  
  47. get nsng
  48. say "Number of songs:" result
  49.  
  50. get cspo
  51. say "Current songposition:" result
  52.  
  53. get mspo
  54. say "Maximum songposition:" result
  55.  
  56. get cfil
  57. say "Chosen file number:" result
  58.  
  59. get cnam
  60. say "Chosen file name:" result
  61.  
  62. get nfil
  63. say "Files in list:" result
  64.  
  65.